gen.af <- function(af, no) { 

    # Erzeugen von no artifiziellen Variablen aus der Matrix af   
    
    af.prc<-princomp(af,cor=TRUE)    
    affe<-matrix(af.prc$loadings[,1:no],ncol=no)
    af<-data.matrix(af)
    Neue.Daten<-af%*%affe
    
    
    ZSCHL <- matrix(nrow=length(af[,1]), ncol=no)

    # normieren
    for (i in 1:no) {
        ZSCHL[,i] <- ( Neue.Daten[,i] - mean(Neue.Daten[,i]) ) / sqrt( var(Neue.Daten[,i]) )    
    }    
    
    ZSCHL
    
} 
